All the usual text-mode cursor movement works, except
RET Go for it (answer the Question).
Entering this mode calls value of hook variable waisk-mode-hook." nil])
(byte-code "└┴!¼é┬└├!¼é┬¼┤─!╞╟╚#ê╞╔╚#ê╞╩╦#ê╞╠═#ê╞╬╧#ê╞╨╤#ê╞╥╙#ê╞╘╒#ê└╓!¼â╫┬ç" [boundp wais-document nil waisd-mode-map copy-keymap text-mode-map define-key "?" waisd-help "h" "B" waisd-best-line "s" wais-add-section "" wais-query " " scroll-up "" scroll-down "q" waisd-exit *waisd-mode-string* "Major mode in effect in a wais document buffer.\n\n Movement commands:\n\n All the usual text-mode cursor movement work.\n In addition the following commands are available:\n\n B Go to the best line in the document\n space Scroll document forward.\n delete Scroll document backward.\n\n Action Commands:\n\n s Add the marked region as a section to the Relevant Documents.\n ? or h Show this message (Help).\n q quit reading this document. bury this buffer, and the Question\n buffer associated with it.\n\n When you retrieve a source you will see the source description form in\n the document buffer. To save this for use in subsequent searches,\n simply use the \"S\" command in the results window, or the standard\n Emacs save-file function (control-x control-s, or M-x save-file). If\n you use the save-file function, be sure to add the .src suffix so the\n interface will recognize this as a source. The \"S\" function will add\n the suffix for you.\n\nEntering this mode calls value of hook variable waisd-mode-hook."] 4)
Major mode for WAIS documents. Use M-x waisd-help for more information." nil])
(byte-code "└┴!¼é┬├─Mê ¼å┼ ├ ê└╞!¼â╟┬ç" [boundp waisq-mode-map nil init-waisq-mode-map #[nil "└ !ê┬ ├─#ê┬ ┼╞#ê┬ ╟╚#ê┬ ╔╩#ê┬ ╦╠#ê┬ ═╬#ê┬ ╧╨#ê┬ ╤╥#ê┬ ╙╘#ê┬ ╒╓#ê┬ ╫╪#ê┬ ┘╪#ê┬ ┌╪#ê┬ █▄#ê┬ ▌▐#ê┬ ▀α#ê┬ ßα#ê┬ Γα#ê┬ πΣ#ê┬ σΣ#ê┬ µτ#ê┬ ΦΘ#ê┬ ΩΘ#ê┬ δ∞#ê┬ φε#ê┬ ∩≡#ê┬ ±≥#ê┬ ≤⌠#ê┬ ⌡÷#ê┬ ≈°#ê┬ ∙·#ç" [suppress-keymap waisq-mode-map define-key "n" wais-edit-next-msg "p" wais-edit-previous-msg "" wais-next-msg "" wais-previous-msg "+" wais-edit-next-resdoc "-" wais-edit-previous-resdoc "a" wais-add-reldoc "d" wais-delete-reldocs "A" wais-add-source "D" wais-delete-sources "g" wais-query "G" "" "q" wais-exit "Q" wais-quit "e" wais-edit "f" "v" "h" wais-help "?" "N" wais-create-question "k" wais-goto-keywords "K" " " wais-scroll-msg-up "" wais-scroll-msg-down "s" wais-select-question "S" wais-save-document "m" wais-toggle-multiple-buffers "B" waisq-best-line "" wais-redisplay "k" wais-kill-buffer] 4] make-keymap *waisq-mode-string* "Major mode in effect in a wais question buffer.\n\n Movement commands:\n\n C-n Move to next document, or arg documents.\n C-p Move to previous document, or arg documents.\n e,f,v Edit, Find or View the current document (all are synonymous).\n n Edit to next document, or arg documents.\n p Edit to previous document, or arg documents.\n space Scroll document in other window forward.\n delete Scroll document backward.\n B Go to the best line in the document\n C-l Refresh Display and reset Question Window.\n\n Sources:\n\n A Add a source to the question.\n D Delete all sources from the question.\n\n Relevance Feedback:\n\n a Add the current document to the question.\n d Delete all relevant documents from the question.\n\n Action Commands:\n\n k Replace the 'Find documents on' words\n G,RET Go for it (submit the query).\n N Make a new question.\n m Toggle multiple document buffer mode. \n s Select another question.\n S Save this document to a file.\n ? or h Show this message (Help).\n q quit WaisQ, but keep the question's buffer.\n Q Quit WaisQ and kill this question's buffer.\n\n New users should try M-x wais-novice.\n\n Entering this mode calls value of hook variable waisq-mode-hook.\n\n Some notes on retrieving and saving sources (from the directory of servers,\n or from the help query):\n\n When you retrieve a source you will see the source description form in\n the document buffer. To save this for use in subsequent searches,\n simply use the \"S\" command in the results window, or the standard\n Emacs save-file function (control-x control-s, or M-x save-file). If\n you use the save-file function, be sure to add the .src suffix so the\n interface will recognize this as a source. The \"S\" function will add\n the suffix for you.\n"] 2)
(fset 'wais-query #[(&optional stuff) "└ë┴┼!ê╟ ê└╔ ê╩╦╠!ê┬\n!ê╧\n#┬╨!ê½Üèqêebê╥╙!ê╠yê┬`└ê`{!)¬å╘╒#+ç" [nil "Asking the question..." message file result update-keywords question-name wais-redisplay-internal buffer-read-only erase-buffer t sit-for 0 current-question-filename name wais-query-internal "Asking the question...done." *wais-receiving-buffer* search-forward "Found" display-question "Incomplete Transaction. Question Unmodified."] 4 "\
Answer this Question" nil])
(byte-code "└┴Mê┬├Mç" [update-keywords #[(name) "è└ ┬P├\"qê¡à┼ed{!)ç" [find-wais-buffer name ": Find Documents On" keys current-question-filename wais-replace-keywords] 3] wais-query-internal #[(file name &optional message) "└┬!ê─┼╞Åê )ç" [nil result update-keywords name e (byte-code "└┬!ê─ êebê┼╞└╟#½ïe╚uê`{╔P¬åed{╩P╦p!ê╠!ê═ êqê╧ ê╨═ \"ê╤═ !ê╥!╘=¼å╒╓\"êebê╟┼╪└╟#ä⌡ ╤!êebêè┼┘è┼╪└╟#¡ü`)╟#)¼Æè┼┌è┼╪└╟#¡ü`)╟#)½ë└█╟▄▌#êè┼▐è┼╪└╟#¡ü`)╟#)½ë└█╟▄▀#êè┼αè┼╪└╟#¡ü`)╟#)½å█╟▄ß#êè┼Γè┼╪└╟#¡ü`)╟#)½ë└█╟▄π#ê╥!╘=¼å╒╓\"êebêéV ½▐┼Σ└╟#¼è╤!êebê¬oebêσ&┼&!ê`&GZΣ'┼'!ê'G[uê`){┬!ê╧ ê cê└(ΘΩ!ê)╦p!êδ∞\"╠!êφ.#ê))└ç" [nil command-string find-file file emacs-lisp-mode search-forward ":result-documents" t -17 ")" "\n" kill-buffer message wais-find-process *wais-receiving-buffer* erase-buffer process-send-string accept-process-output process-status *wais-process* run error "WAIS process died. Look in buffer %s for clues." result " (:question" "Bad Connection" "Connection refused" show-dialog 4 "Looks like a bad connection." "This Question has no sources" "No Source. Press 'A' to add one. " "Code:" "Diagnostic Error" "Couldn't find source" "Looks like a bad source spec." "Waisq: Ready for next question." "(:question" match end require-final-newline save-buffer 0 format "%sdone." display-question name] 6) ((error (show-dialog t 6 "Something wrong with query")) (quit (byte-code "└ \n\"ê├─!ê¼à╞!ê└ç" [display-question name file message "Abort Query!" *debug* kill-buffer *wais-receiving-buffer*] 3)))] 3]] 2)
returns a list of the names of questions. This should look into the
question and pull out the name, but that is not in the question struct yet."])
(fset 'wais-select-question #[nil "└ ë½¼┬ ê├─!ê┼ ê╞╚ ê╔cê╩╦ \"ê╠═!êebê╬yê╧╨╤!ê╞¬ç╥╙!¡é╘ )ç" [all-questions questions delete-other-windows switch-to-buffer "*Question List*" question-menu-mode nil buffer-read-only erase-buffer "<<Select a question with <space> or 'q'>>\n" mapcar #[(question) "cê┴cç" [question "\n"] 1] delete-char -1 1 t message "Commands: <space>, q, ? for help." yes-or-no-p "You have no questions. would you like to create one? " wais-create-question] 4 "\
Make a menu of questions so you can select one.
Type ? after invocation to get help on commands available.
Type q immediately to make the question menu go away." nil])
Create and run the 'Quick' novice question, and pop up
the novice Help" nil])
(byte-code "└┴Mê┬├!¼é─└ç" [make-wais-novice-question #[nil "└┴┬├#ê─ ê┼ ç" [wais-create-question "Quick" "?" "directory-of-servers.src" wais-query show-novice-wais-help] 4] boundp *wais-novice-string* "First, I've created a 'Quick' question for you, and hopefully it ran. You\nnow see a typical WAIS display. Let me first tell you that you can scroll\nthis window by pressing the space bar and the Delete key, in case you can't\nsee it all.\n\nThere are five parts to this display:\n1. the Search words\n2. the Sources to search\n3. some documents that might be similar to your intended document\n4. the Resulting documents from the search\n5. a document, in this case, this message.\n\nYou can now use this Question to ask further questions, or you might wish\nto create some questions of your own (they don't all have to be the 'Quick'\nquestion).\n\nThe most useful keystrokes for using WAISQ mode are (case is important!):\n\n<space>: scroll the text in the other window up\n <del>: scroll the text in the other window down\n k: switches you to the search word window\n e,f,v: view the current result document in a window like this one.\n a: add the current document to the relevant documents list\n d: delete all the relevant documents\n A: capital A adds a new source\n D: captial D deletes all the sources.\n g,RET: perform the query.\n C-l: rebuild the display, removing the document view window.\n s: select a new Question\n q: quit out of this question, and bury it.\n Q: capital Q quits out of this question, and kill all its buffers.\n ?: describe waisq-mode shows all new keystrokes associated with\n WAISQ mode.\n\nYou really shouldn't have to use C-x o to switch to other windows, but if\nyou do, you should go back to the result-documents window and press C-l to\nrebuild the display."] 2)
returns a list of the names of sources. This should look into the
source and pull out the name, but that is not in the source struct yet."])
(fset 'wais-view-source #[nil "└ ë½¼┬ ê├─!ê┼ ê╞╚ ê╔cê╩╦ \"ê╠═!êebê╬yê╧╨╤!ê╞¬â╨╥!)ç" [all-sources sources delete-other-windows switch-to-buffer "*Source List*" source-menu-mode nil buffer-read-only erase-buffer "<<Select a source with <space> or 'q', view with 'v'>>\n" mapcar #[(source) "@cê┴cç" [source "\n"] 1] delete-char -1 1 t message "Commands: <space>, q, v or ? for help." "No sources. Something is wrong - see your site administrator"] 4 "\
Make a menu of sources so you can select one to view.
Type ? after invocation to get help on commands available.
Type q immediately to make the source menu go away." nil])
(defvar source-menu-mode-map nil "\
")
(byte-code "└┴!¼é┬├─Mê¼å╞ ├ ê╟╚Mê╔╩Mê└╦!¼â╠═╬Mê╧╨!ç" [boundp source-menu-buffer-name "*Source List*" setup-source-mode-map #[nil "└ ┬\"ê├ ─┼#ê├ ╞┼#ê├ ╟┼#ê├ ╚╔#ê├ ╩╦#ê├ ╠┼#ê├ ═╬#ç" [suppress-keymap source-menu-mode-map t define-key "q" source-menu-view "s" " " "n" next-line "p" previous-line "v" "?" describe-mode] 4] source-menu-mode-map make-keymap get-source-name #[nil "└┴ ─ï*ç" ["" all-sources sources result ((byte-code "└ ê ½Æ\n├ÿ½ï─┼ ╞╟╞%ë¬q\nç╚╔!ç" [delete-other-windows sources result "" completing-read "Select Source (press ? for a list of sources): " nil t message "No sources. Something is wrong - see your site administrator"] 7))] 2] source-defined-p #[(source) "└ ┬ \"ç" [assoc source all-sources] 3] index-types (("groliers" . "groliers") ("mail" . "mail") ("rmail" . "rmail") ("netnews" . "netnews") ("catalog" . "catalog") ("bio" . "bio") ("cmapp" . "cmapp") ("text" . "text") ("para" . "para")) basename #[(path) "GS┬ !¼Å H├=¼ê Së)¬l T┼O)ç" [path loc minusp 47 G$$_20 nil] 4] require compile] 2)